home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
rpncal
/
rpncalc.frm
< prev
next >
Wrap
Text File
|
1995-05-07
|
16KB
|
589 lines
VERSION 2.00
Begin Form Calculator
BackColor = &H00C0C000&
BorderStyle = 1 'Fixed Single
Caption = "RPN Calculator"
ClientHeight = 3660
ClientLeft = 1170
ClientTop = 3735
ClientWidth = 3690
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 4065
Icon = RPNCALC.FRX:0000
KeyPreview = -1 'True
Left = 1110
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 3660
ScaleWidth = 3690
Top = 3390
Width = 3810
Begin CommandButton Enter
Caption = "Enter"
Default = -1 'True
Height = 1095
Left = 1920
TabIndex = 1
Top = 2400
Width = 495
End
Begin CommandButton LastX
Caption = "L"
Height = 495
Left = 3120
TabIndex = 0
Top = 1800
Width = 495
End
Begin CheckBox FixDec
Caption = "Check1"
Height = 255
Left = 240
TabIndex = 2
TabStop = 0 'False
Top = 840
Width = 255
End
Begin CommandButton Number
Caption = "7"
Height = 480
Index = 7
Left = 120
TabIndex = 3
TabStop = 0 'False
Top = 1200
Width = 480
End
Begin CommandButton Number
Caption = "8"
Height = 480
Index = 8
Left = 720
TabIndex = 4
TabStop = 0 'False
Top = 1200
Width = 480
End
Begin CommandButton Number
Caption = "9"
Height = 480
Index = 9
Left = 1320
TabIndex = 5
TabStop = 0 'False
Top = 1200
Width = 480
End
Begin CommandButton Number
Caption = "4"
Height = 480
Index = 4
Left = 120
TabIndex = 6
TabStop = 0 'False
Top = 1800
Width = 480
End
Begin CommandButton Number
Caption = "5"
Height = 480
Index = 5
Left = 720
TabIndex = 7
TabStop = 0 'False
Top = 1800
Width = 480
End
Begin CommandButton Number
Caption = "6"
Height = 480
Index = 6
Left = 1320
TabIndex = 8
TabStop = 0 'False
Top = 1800
Width = 480
End
Begin CommandButton Number
Caption = "1"
Height = 480
Index = 1
Left = 120
TabIndex = 9
TabStop = 0 'False
Top = 2400
Width = 480
End
Begin CommandButton Number
Caption = "2"
Height = 480
Index = 2
Left = 720
TabIndex = 10
TabStop = 0 'False
Top = 2400
Width = 480
End
Begin CommandButton Number
Caption = "3"
Height = 480
Index = 3
Left = 1320
TabIndex = 11
TabStop = 0 'False
Top = 2400
Width = 480
End
Begin CommandButton Number
Caption = "0"
Height = 480
Index = 0
Left = 120
TabIndex = 12
TabStop = 0 'False
Top = 3000
Width = 1080
End
Begin CommandButton Decimal
Caption = "."
Height = 480
Left = 1320
TabIndex = 13
TabStop = 0 'False
Top = 3000
Width = 480
End
Begin Image Pi
Height = 480
Left = 3120
Picture = RPNCALC.FRX:0302
Top = 600
Width = 480
End
Begin Image XSquare
Height = 480
Left = 3120
Picture = RPNCALC.FRX:0604
Top = 1200
Width = 480
End
Begin Label LabelFix
Alignment = 2 'Center
BackColor = &H00C0C000&
Caption = "Fix 4"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 105
TabIndex = 14
Top = 600
Width = 510
End
Begin Image Change
Height = 480
Left = 2520
Picture = RPNCALC.FRX:0906
Top = 1800
Width = 480
End
Begin Image SquareRoot
Height = 480
Left = 2520
Picture = RPNCALC.FRX:0C08
Top = 1200
Width = 480
End
Begin Image Up
Height = 480
Left = 3120
Picture = RPNCALC.FRX:0F0A
Top = 2400
Width = 480
End
Begin Image Down
Height = 480
Left = 2520
Picture = RPNCALC.FRX:120C
Top = 2400
Width = 480
End
Begin Image Plus
Height = 480
Left = 1920
Picture = RPNCALC.FRX:150E
Top = 1200
Width = 480
End
Begin Image Minus
Height = 480
Left = 1920
Picture = RPNCALC.FRX:1810
Top = 600
Width = 480
End
Begin Image Devide
Height = 480
Left = 720
Picture = RPNCALC.FRX:1B12
Top = 600
Width = 480
End
Begin Image Mult
Height = 480
Left = 1320
Picture = RPNCALC.FRX:1E14
Top = 600
Width = 480
End
Begin Image SwapXY
Height = 480
Left = 1920
Picture = RPNCALC.FRX:2116
Top = 1800
Width = 480
End
Begin Image xby1
Height = 480
Left = 2520
Picture = RPNCALC.FRX:2418
Top = 600
Width = 480
End
Begin Image Backspace
Height = 480
Left = 2520
Picture = RPNCALC.FRX:271A
Top = 3000
Width = 1080
End
Begin Label Readout
Alignment = 1 'Right Justify
BackColor = &H00FFFF80&
Caption = "0"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 13.5